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ABSTRACT 


An  automated  measurement  system  designed  to  measure  power  accurately  at  the  level 
of  1  mW  and  at  the  frequency  of  1  GHz  is  described.  The  system  consists  of 
commercial  IEEE  Std-488  bus-controlled  instruments,  a  computer  controller,  and 
software.  The  results  of  a  series  of  measurements  are  output  to  the  computer  display 
and,  optionally,  to  a  printer.  The  results  are  the  mean  of  the  measurement  series  and 
an  estimate  of  the  systematic  and  random  uncertainty.  The  total  estimated  uncertainty 
for  the  average  of  six  consecutive  measurements  of  a  nominal  1  mW,  1  GHz  source  is 
typically  less  than  1  percent.  The  system  can  measure  any  power  from  0.1  to  10  mW 
at  any  microwave  frequency  by  making  appropriate  changes  to  the  software  and 
possibly,  the  hardware. 


Key  words:  automated  measurement;  microwave;  microwave  power  measurement; 
power;  power  measurement;  power  measurement  system. 
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POWER  MEASUREMENT  SYSTEM  FOR  1  mW  at  1  GHz 


Fred  R.  Clague 

National  Institute  of  Standards  and  Technology 
Boulder,  Colorado  80303 


1.  INTRODUCTION 

This  system  is  especially  designed  to  accurately  measure  microwave  power  at  the  level  of  1  mW  and 
the  frequency  of  1  GHz.  Specifically,  it  supports  the  calibration  of  the  Wavetek  8502A^  pulse  power 
meter,  which  has  a  1  mW,  1  GHz  calibrator  output  port.  The  manufacturer's  specification  on  the 
power  level  of  that  output  is  ±1.5  percent.  Use  of  the  system  is  not  restricted  to  this  specific 
application;  relatively  simple  modifications  to  the  software  would  make  it  possible  to  measure  other 
power  levels  and  frequencies. 

The  microwave  power  measurement  method  is  based  on  the  dc  substitution  technique.  The  system  is 
implemented  using  a  commercial  version  of  the  NIST-developed  Type  IV  microwave  power  meter,  a 
commercial  coaxial  thermistor  mount,  a  digital  voltmeter,  and  a  dedicated  computer  controller.  The 
Type  IV  power  meter  is  not  direct  reading;  the  substituted  dc  power  is  calculated  using  readings 
obtained  from  the  digital  voltmeter.  The  computer  controls  the  measurement  process,  calculates  the 
results,  and  prints  them  out.  The  measurement  results  include  an  estimate  of  uncertainty  for  each  data 
set.  The  automation  also  allows  the  implementation  of  a  procedure  that  adequately  corrects  for 
thermistor  mount  drift  caused  by  external  temperature  changes.  The  system  is  packaged  in  a 
combination  operating/shipping  case. 


^  Certain  commercial  instruments  and  software  products  are  identified  in  this  document  in  order 
to  adequately  specify  the  instrument  supported  and  the  measurement  system.  Such  identification  does 
not  imply  recommendation  or  endorsement  by  NIST  nor  does  it  imply  that  the  identified  items  are 
necessarily  the  best  available  for  the  purpose. 
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2.  OPERATION 


2.1  Initial  Steps 

Before  turning  on  the  Type  IV  power  meter  be  certain  that  the  thermistor  mount  is  connected  to  it. 
The  output  of  the  Wavetek  8502A  calibrator  is  found  to  be  more  stable  after  a  2  hour  warmup,  rather 
than  the  30  minutes  specified  by  the  manual.  If  possible,  the  2  hour  warmup  period  is  recommended 
for  both  the  8502A  and  the  power  measurement  system.  It  is  also  recommended  that  the  thermistor 
mount  be  attached  to  the  calibrator  output  for  at  least  30  minutes  before  making  the  measurement. 
This  will  minimize  the  temperature  drift  of  the  mount,  improving  the  measurement  accuracy. 

Before  turning  on  the  computer,  load  the  disk  marked  "System  and  Program"  in  the  drive,  then  turn 
on  the  power.  The  operating  system  will  be  automatically  loaded.  The  computer  screen  will  display 
the  time  and  the  several  soft-key  options:  SET  CLOCK,  LOAD  PROGRAM,  and  EXIT.  (The  soft 
keys,  or  function  keys,  are  the  set  of  eight  dark  grey  keys  along  the  top  of  the  keyboard  labeled  FI 
through  F8.)  Set  the  time  if  needed,  and  then  press  the  LOAD  PROGRAM  soft  key.  The 
measurement  program  will  be  loaded  and  run. 


2.2  Measurement 


The  first  screen  displayed  by  the 
program  is  shown  in  figure  2.1.  To 
see  instructions  on  how  to  operate 
the  8502A  (to  turn  the  calibrator 
output  on  and  off),  press  FI.  To 
enter  the  serial  number  of  the  8502A 
being  measured,  press  F2;  the  serial 
number  will  then  be  printed  with  the 
measurement  result.  To  change  the 
number  of  repeated  measurements 
to  be  averaged  in  a  set  (at  least  6  to 
10  is  recommended),  press  F3.  To 
begin  the  measurement  set,  press  F4, 
To  exit  the  program,  press  F5. 


Figure  2.1.  Screen  display  of  the  measurement  menu. 
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Figure  2.2  shows  the  screen  that 
appears  when  the  first  item  is  select¬ 
ed  from  the  Measurement  Menu.  It 
gives  brief  instructions  for  manually 
controlling  the  8502A  calibrator 
output  based  on  information  given  in 
the  instrument’s  operating  manual. 
The  four  numbered  steps  shown  on 
the  screen  should  be  carried  out 
before  proceeding  with  the  measure¬ 
ment. 


CCHTROLLING  8502fi  OiLIBRfl™  OUtPUT 

Press  ,  ttw  ffll  Iflwlng  8562fi  frent  .parwl  keys  in  the. 

sequence  indicated: 

iihXU\  ,  C4)-Tr. 

Thenr,  pt'essing  the  850^  key  ^7'  «ill  turti  the  catibretor 
output  ON,  and  prftsstng  the  ^028  key  'CLEfiR'  wiU  turn  the 
calibrator  output  OFE. 

For  iaore  detail  ^  'Caliirator  Output  Level  Test'  on  page  6-2 
of  the  8502fl  flwjnual .  ■ 


CftOtrONi  Do  not  press  any  UNttS  key  when  the  nwunt  is 
connect^  to  the  calibrator.  This  will  cause  the 
calibrator  to  Output  100  sM  which  fti^t  damage  the  mount,  . 


User  1  .  .  CoMand 


Figure  2.2.  Screen  display  of  operating  instructions  for  the 
calibrator  output. 


Figure  2.3  shows  the  screen  that  appears  when  F4  is  pressed  to  start  the  measurement.  Just  before  the 
message  TURN  RF  ON  (PRESS 
8502A  KEY  ’7’)  is  displayed,  the 
computer  will  beep  once.  At  that 
point  press  key  7  on  the  8502A  to 
turn  the  rf  on  and  wait  for  a  pair  of 
beeps  from  the  computer.  The  mes¬ 
sage  will  change  to  TURN  RF  OFF 
(PRESS  8502A  ’CLEAR’).  After 
pressing  the  CLEAR  key,  wait  until 
a  single  beep  sounds  again,  before 
pressing  key  7  to  begin  the  next 
measurement  in  the  set.  This  se¬ 
quence  will  be  automatically  repeat¬ 
ed  until  all  the  measurements  mak¬ 
ing  up  the  set  have  been  made. 

Figure  2.3.  Screen  display  while  the  measurement  is  made. 


MOW:  84788,  yw  2186fl20«34  17;84;20  J6  Hug  1990' 

P«CR  rEia:  8SVETEK  HOTEL  8592ft,  S/N  1813641 

W.  P(ll€«  PHR- l.«  VI  ■  .teiWv;  ¥1  Ofib.'  fief,  Otfset 

_  _M_'  (Xl  IVOLT)  •  W)  ■  (■¥)  . 
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MEfiSUREHtNT  COMPLETE 


When  the  desired  number  of  mea¬ 
surements  is  complete,  the  final 
screen  that  is  displayed  is  shown  in 
figure  2.4. 


P  W  R  _  M  T  R  1 

.  MCM;  HP  84788,  S/N  2106ft20i554  16:59:46  16  Hug  19’y0 
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Figure  2.4.  Screen  display  of  the  measurement  results. 


The  upper  part  of  the  display  summarizes  each  measurement  in  the  set  as  explained  in  table  2.1  below. 


Table  2.1.  Explanation  of  the  upper  part  of  the  measurement  screen 

Column  Heading 

Explanation 

NO. 

Number  of  the  power  measurement. 

POWER 

Result  of  the  power  measurement  in  milliwatts. 

PWR -  1 mW 

Percent  deviation  of  the  measured  power  from  1  milliwatt. 

VI 

Power  meter  voltage  with  the  rf  off  (see  section  3.1). 

Delta  V 

Change  that  occurs  in  the  power  meter  voltage  when  the  rf  is  turned  on. 

VI  Drift 

Drift  of  Kj  in  //V/s  that  occurred  from  the  beginning  of  the  measurement 
until  it  was  complete.  Note  that  if  the  drift  is  greater  than  10  fiV /s  the 
measurement  should  be  repeated  after  waiting  a  period  of  time  for  the 
mount  temperature  to  further  stabilize. 

Ref.  Offset 


The  compensation  element  channel  is  used  as  the  voltage  reference;  this 
column  shows  the  voltage  difference  between  the  measurement  thermistor 
channel  and  the  compensation  thermistor  channel  when  the  rf  is  off. 


The  final  results  are  displayed  on  the  screen  below  the  horizontal  dashed  line.  The  explanation  of  each 
column  is  given  in  the  following  table. 


Table  2.2.  Explanation  of  the  results  section  of  the  measurement  screen 

Column  Heading 

Explanation 

AVG  PWR 

Average  power  in  milliwatts  computed  from  the  measured  data  set. 

AVG  -  ImW 

Percent  deviation  of  the  average  power  level  from  1  milliwatt. 

MAX  DEV 

The  maximum  positive  and  negative  deviations  from  1  milliwatt. 

STD  DEV 

The  standard  deviation  of  the  individual  measurements. 

SYS  UNC 

The  total  calculated  systematic  uncertainty  in  the  measurement. 

TOT  UNC 

Total  uncertainty;  the  systematic  uncertainty  plus  three  times  the  standard 

deviation  of  the  mean. 
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3.  SYSTEM  DESCRIPTION 


3.1  Theory  of  Operation 

The  NIST  Type  IV  power  meter  is  not  a  direct  reading  instrument.  An  external  precision  dc  voltmeter 
must  be  connected  to  the  power  meter,  and  the  power  is  calculated  from  the  voltmeter  readings.  The 
power,  P,  is  given  by 

P  =  -^2)>  (3-1) 

where  Kj  is  the  output  voltage  without  rf  power,  V2  is  the  voltage  with  rf  power,  and  Rq  is  the 
operating  resistance  of  the  mount.  Note  that  the  so-called  "bolometric  power”  is  simply  the  change  of 
the  mount  dc  bias  power  as  rf  power  is  applied  and  removed. 

It  can  be  seen  from  eq  (3.1)  above  that,  as  the  rf  power  becomes  small,  V2  approaches  Fj.  Because 
of  the  uncertainty  "magnification"  that  occurs  in  the  computed  difference  of  two  nearly  equal  numbers, 
the  power  measurement  uncertainty  becomes  very  large  as  the  power  decreases.  The  solution  to  this 
problem  is  to  measure  the  difference  between  Vi  and  V2  directly.  This  requires  a  reference  voltage 
generator  (RVG)  which  is  set  nominally  equal  to  and,  in  effect,  stores  Vi. 

When  an  RVG  is  used,  the  expression  for  calculating  power  from  measured  voltages  becomes, 


/>  = 


-  AK)AF, 


(3.2) 


where  Rq  and  were  previously  defined,  and  AV  is  the  change  in  the  power  meter  voltage  when  rf 
is  applied.  In  providing  for  a  first-order  correction  of  mount  drift,  the  value  of  Kj  and  AV  are 
estimated  by  assuming  linear  drift  and  measuring  several  other  voltages  while  the  rf  is  off,  as  shown 
in  figure  3.1. 
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The  diagram  in  figure  3,1 
depicts  the  outputs  of  the 
power  meter  and  RVG  as  a 
function  of  time  while  the  rf 
is  cycled  on  and  off.  The 
measurement  sequence  of 
five  voltage  and  time  read¬ 
ings  used  to  calculate  the 
power  and  correct  for  the 
mount  drift  is  also  shown. 

Note  that  the  reference  volt¬ 
age  generator  is  not  set 
equal  to  Fi,  nor  is  it  con¬ 
stant  with  time.  This  is 
because  it  is  convenient  to 
use  the  compensation  ele¬ 
ment  of  the  mount,  biased  by 
the  second  power  meter  channel,  as  the  reference  voltage  generator.  Thus  the  RVG  does  drift  during 
the  measurement,  but  this  change  is  also  corrected,  to  first  order,  by  the  measurement  series. 

In  terms  of  the  measured  voltages,  the  values  to  be  used  in  eq  (3.2)  are  given  by, 


Figure  3.1.  Measured  power  meter  voltages  vs  time. 


" 


(3.3) 


and, 


> 

II 

1 

Vyxi  * 

/  N 

h-h 

t  —  / 

r4  hj 

(3.4) 
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3.2  Hardware 


The  system  block  diagram  is 
shown  in  figure  3.2.  The 
input  switching  to  the  digital 
voltmeter  (DVM)  is  done 
with  the  multiplexer  internal 
to  the  DVM,  The  dual  pow- 
er  meter  also  has  an  IEEE 
Std-488  bus  interface  with 
controlled  output  switching, 
but  it  is  not  used  in  this 
application.  The  specifica¬ 
tions  for  the  instruments  are 
given  in  appendix  A. 


Figure  3.2.  System  block  diagram. 


DVM  WITH  MULTIPLEXER 


CONTROLLER 


II 

^FLr 

r 

■ _  '  _ 

JiJ 

hj 

— s 

f--C 


OUTPUT 


(COMPENSATION 


GPIB 


-N 


OUTPUT 


(fCnSURErtlNT 

ELEMENT) 


DUflL  TYPE  IV  POWER  METER 


THERMISTOR  MOUNT 


3.3  Software 

A  software  listing  is  included  as  appendix  B.  Comments  at  the  beginning  of  the  code  define  the 
variables  (and  their  location)  that  one  might  want  to  change  for  other  applications  such  as  a  different 
power  level  or  a  new  mount  calibration  factor. 
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4,  ERROR  ANALYSIS 


4.1  Systematic  Error  Components 

The  factors  contributing  to  the  total  systematic  uncertainty  are; 

1.  Uncertainty  in  the  dc  voltage  measurements. 

2.  Uncertainty  in  the  thermistor  mount  effective  efficiency  calibration. 

3.  Mismatch  uncertainty  due  to  the  source  (8502A  calibrator  output)  reflection  coefficient 
and  the  thermistor  mount  reflection  coefficient. 

4.  The  "dual  element  substitution  error"  associated  with  the  coaxial  thermistor  mount. 

5.  Type  IV  power  meter  uncertainty.  There  are  four  sources  of  possible  error  internal  to  the 
power  meter.  They  are,  the  reference  resistors,  the  operational  amplifier  open  loop 
gain,  input  offset  voltage,  and  input  bias  current.  The  Type  IV  error  analysis  [1]  indicates 
that  all  of  them  are  negligible  compared  to  the  four  factors  listed  above. 

The  first  four  of  these  items  will  be  considered  individually  in  the  following  sections. 

4.1.1  Voltmeter  Uncertainty 

The  effect  of  uncertainty  in  the  individual  voltmeter  readings  can  be  determined  by  taking  the  total 

differential  of  the  expression  for  power,  eq  (3.2), 


dP  =  —[AV  dV^  +  (Kj  -  AV)  dAV], 


(4.1) 


where,  in  terms  of  the  measured  parameters. 


dK,  =(1 


(4.2) 


C' 


dAK  =  ^  (1  +  +  r,/ 


(4.3) 


(4.4) 
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and, 


The  quantities  dV u,  dVif,  dV ixh  \xfy  dV2X’,  the  uncertainties  in  the  measured  values  of  Vu, 

^1/5  ^ixi^  ^ixf^  V2X-  These  uncertainties  in  the  measured  voltages  are  based  on  the  voltmeter 
specifications,  which  are  usually  given  in  two  parts  as  a  fraction  of  reading  term,  a,  and  a  fraction  of 
full  scale  term,  6.  The  general  expression  for  the  voltmeter  uncertainty  is  given  by, 


"  P 


Figure  4.1  shows  the  uncertainty  in  power  measurement  as  a  function  of  power  level  near  1  mW,  as 
calculated  using  the  above  procedure  (in  the  calculations,  the  sign  of  the  independent  terms  are  chosen 
to  give  the  maximum  contribution  to  the  total  uncertainty)  for  the  voltmeter,  power  meter,  and 
measurement  configuration  used  in  this  system. 


0.10 

0.09 

0.08 

CO 

O 

0.07 

CO 

CO 

LU 

0.06 

1— 

LU 

0.05 

o 

CO 

LU 

0.04 

a. 

0.03 

0.02 

0.01 

0 

( 

POWER.  MILLIWATTS 


Figure  4.1.  Power  measurement  uncertainty  from  the  DVM. 
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4.1.2  Uncertainty  in  Thermistor  Mount  Effective  Efficiency 


1 


This  is  the  uncertainty  of  the  NIST  thermistor  mount  calibration.  The  NIST  calibration  also  gives  a 
value  for  the  mount  calibration  factor  Cf,  which  is  the  factor  used  in  this  measurement  rather  than 
effective  efficiency  alone,  and  is  defined  later  in  this  section.  The  values  listed  on  the  report  of 
calibration  will,  of  course,  be  constant  for  any  given  mount,  until  the  unit  is  recalibrated. 

The  thermistor  mount  should  be  recalibrated  periodically. 

4.1.3  Mismatch  Uncertainty 

The  net  power  delivered  to  a  termination  by  a  source  is  given  by, 


(4.7) 


where  Po  is  the  power  the  source  would  deliver  to  a  nonreflecting  termination,  is  the  generator 
reflection  coefficient,  and  is  the  termination  reflection  coefficient.  Ideally,  the  calibrator  should 
deliver  a  net  power  of  1  mW  to  the  power  detector  being  calibrated,  but  that  can  only  be  accomplished 
if  the  complex  reflection  coefficients  of  the  power  detector,  generator,  and  calibrating  thermistor 
mount  are  known,  which  is  generally  not  the  case.  Assuming,  then,  that  the  calibrator  output 
specification  is  the  power  delivered  to  a  nonreflecting  load,  Pq^  the  measured  output  is  given  by. 


^0 


1  -  K\"  ’ 


(4.8) 


^  where  P^  is  the  bolometrically  measured  power,  is  the  effective  efficiency  of  the  thermistor  mount, 

^  is  the  generator  reflection  coefficient,  and  T^  is  the  thermistor  mount  reflection  coefficient.  The 

denominator  of  eq  (4.8)  is  the  mount  calibration  factor, 

-  ir.p). 
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so  that  eq  (4.8)  becomes, 


^0 


(4.10) 


The  value  of  has  been  measured  during  the  NIST  calibration,  but  only  an  upper  limit  to  the 
magnitude  of  F^  is  known  (from  the  source  return  loss  specification).  Thus,  only  the  limits  to  the  term 
involving  the  reflection  coefficients  are  known, 

(1  -  ir.lirj)^^  |i  -r^rj2^(i  .  (4.ii) 


so  that  Pq  is  also  only  known  within  the  limits, 


^(1  -  irjirj)^  ^  7^(1  -  ir,lir„ 


(4.12) 


This  uncertainty  in  Pq  is  the  mismatch  uncertainty  and  its  relative  value  is  given  to  first  order  by, 


*2  irjirj. 


(4.13) 


The  return  loss  specification  on  the  calibrator  output  is  greater  than  25  dB,  which  results  in  a  value 
for  If^I  of  <  0.056.  The  value  of  iF^lfor  the  thermistor  mount  provided  is  0.019;  together  these 
give  a  mismatch  uncertainty  in  Pq  of  ±0.21  percent. 

4.1.4  Dual  Element  Error 

The  power  detector  is  a  dual-element  coaxial  thermistor  mount.  Dual-element  bolometer  units  are 
nonlinear  with  power  level  as  a  result  of  a  dc-rf  substitution  error  that  arises  because  the  two  elements 
are  not  identical  [2].  The  error  is  of  concern  in  this  measurement  because  it  is  being  made  at  1  mW, 
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while  the  NIST  calibration  of  mount  efficiency  is  done  at  10  mW.  The  only  way  to  determine  the  error 
magnitude  is  by  direct  measurement. 

In  this  case,  the  method  used  was  to  connect  the  coax  mount  to  one  arm  of  a  nominally  equal  power 
splitter  (for  this  measurement,  a  waveguide  "magic  tee"  in  WR'90),  and  a  single-element  waveguide 
mount  to  the  other  arm.  The  ratio  of  the  two  bolometric  powers  was  determined  at  10  mW  and  again 
at  a  randomly  selected  level  between  10  mW  and  0.1  mW.  The  change  in  the  ratios  as  determined  at 
the  two  power  levels  was  a  measure  of  the  dual-element  error. 

Figure  4.2  shows  results  for  two  identical  model  waveguide  mounts  at  9.1  GHz.  The  increased  spread 
of  the  data  as  the  power  level  decreases  is  typical  of  bolometric  measurements  because  of  the  small 
change  in  dc  power  that  occurs  at  low  microwave  power  levels.  The  -10  dB  point  on  the  plot  is 
approximately  equal  to  1  mW. 


Figure  4.2.  Change  in  the  power  ratio  of  2  waveguide  mounts  vs  power  level. 
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Figure  4.3  is  the  result  for  a  coax  mount  compared  with  one  of  the  waveguide  mounts.  The  change  in 
ratio  at  the  1  mW  level  (-10  dB  point)  is  about  0.035  percent.  This  is  the  uncertainty  that  can  be 
expected  in  the  effective  efficiency  and  thus  the  power  measurement  at  1  mW,  given  the  calibration 
is  done  at  10  mW, 


Figure  4.3.  Change  in  the  power  ratio  of  a  coax  mount  to  a  waveguide  mount  vs 
power  level. 


4,2  Random  Error 

In  section  2.2,  figure  2.4  shows  the  measurement  screen.  The  last  three  columns  under  the  Results 
section  show  the  standard  deviation,  the  systematic  uncertainty,  and  the  total  uncertainty  of  that 
measurement  set.  The  random  contribution  to  the  total  uncertainty  is  chosen  to  be  three  times  the 
standard  deviation  of  the  mean. 
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APPENDIX  A 

Instrument  Specifications 

1.  Digital  voltmeter:  6K2  digit  resolution;  3  volt  dc  range  with  0.0025%  of  reading  and  0.0002% 
of  full  scale  accuracy;  300  mV  dc  range  with  0.0035%  of  reading  and  0.0013%  of  full  scale 
accuracy;  IEEE  Std-488  bus;  optional  integrated  reed  relay  multiplexer. 

Note:  meters  with  other  dc  ranges  such  as  100  mV,  1  volt,  and  10  volts  are  also  usable. 

For  instance,  a  6Y2  digit  meter  with  0.00034%  of  reading  and  0.002%  of  full  scale 
accuracy  on  the  100  mV  range,  0.00024%  of  reading  and  0.00033%  of  full  scale 
accuracy  on  the  1  volt  range,  and  0.00023%  of  reading  and  0.00016%  of  full  scale 
accuracy  on  the  10  volt  range,  gives  results  comparable  to  the  3  volt-300  mV  meter. 

2.  Multiplexer:  integrated  with  the  DVM  (or  separate  unit);  minimum  6  single-pole,  single- throw 
contacts;  maximum  thermal  offset  of  3fiV;  IEEE  Std-488  bus. 

3.  Dual  NIST  Type  IV  power  meter  (or  two  single  units). 

4.  Coaxial  thermistor  mount:  type  N  male  connector;  temperature  compensation 
thermistors;  dc  bias  power  30mW;  maximum  ItI  <  0.025;  NIST  calibration  at  1  GHz. 

5.  Computer  controller:  programmable  in  Hewlett  Packard  Work  Station  Basic  version  5.13 
("Rocky  Mountain  Basic"),  or  TransEra  "HT  Basic"  with  IEEE  Std-488  capability;  IEEE  Std- 
488  bus. 
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APPENDIX  B 


Software  Listing 


100  Fne$="PWRMl*  I  StartecI;9001111632/FRC 

105  Rev$=’‘g011210805"  I  FRC  i  NIL  author  of  the  subprograms 

110  i  I  Errors,  Se1ect_v,  and  Hp_3457 

115  I 

120  I  This  program  application  is  the  measurement  of  the  1  mW 

125  I  calibrator  output  of  the  Wavetek  B501A  peak  power  meter. 

130  I 

135  I 

140  I  NOTES: 

145  I 

150  I  This  version  measures  VI  and  delta  V  with  the  compensation  element 

155  I  used  as  an  RVG,  It  also  calculates  the  measurement  uncertainty. 

160  i 

165  I  Total  measurement  uncertainty  includes: 

170  i  Mount  calibration  factor  uncertainty  of  •0.5973%  (For  #20054 

175  t  with  Cal  Factor  of  0.9897) 

180  I  and  calculated  mismatch  uncertainty  for  the  source  ( |Gannia|<=0.056) 

185  I  and  the  mount  (|Ganina|<=0.019)  of  ■  0.21%. 

190  I  The  total  is  0.8073%  plus  the  OVM  and  Type  IV  contribution. 

195  ( 

200  I 

205  I  INSTRUMENTS  CONTROLLED:  ADDRESS 

210  II.  HP3457A  OVM  722 

215  I  2-  HP2225A  PRINTER  701 

220  1 

225  I 

230  I  DESCRIPTION  OF  THE  MAIN  INITIAL  VALUE  VARIABLES: 

235  I 

240  I - - - -  - 

245  1  The  following  are  in  the  labeled  common  named  “/Ovm/": 

250  I 

255  I  **  "Dvm.nameS"  -  the  DVM  identifier  (ie,  HP3457A) 

260  I 

265  I  *  “PO"  -  power  level  in  milliwatts.  The  measurement  results  are 

270  I  compared  with  this  value.  Default  setting  is  1  mW. 

275  I 

280  I  *  "RO*  -  mount  operating  resistance  in  ohms.  Normally  200  ohms 

285  I  for  a  coax  mount  and  may  be  either  100  or  200  ohms  for 

290  I  a  waveguide  mount.  Default  setting  is  200  ohms. 

295  I 

300  I . . - . 

305  I  The  following  are  in  the  labeled  common  named  "/Mount/": 

310  I 

315  I  *  "Mounts"  -  bolometer  mount  identifier  (manufacturer, 

320  I  model,  and  serial  number). 

325  I 

330  I  *  "Cf"  -  NIST  measured  mount  calibration  factor.  Default  setting 

335  I  is  0.9897  for  the  supplied  mount.  Value  must  be  changed 

340  I  after  mount  replacement  or  recalibration- 

345  I 

350  I - - 

355  I  The  following  are  in  the  labeled  conmon  named  "/Errs/": 

360  I 

365  I  *  "Cfu"  -  total  quoted  uncertainty  of  the  NIST  measured  mount 

370  I  calibration  factor.  Default  setting  is  0.5973%  for  the 

375  1  supplied  mount. 

380  1 

385  I  *  "Mmu"  -  calculated  mismatch  uncertainty.  Default  setting  is 

390  I  0,21%  as  indicated  in  the  notes  above. 

395  1 

400  1  - 

405  I  The  following  is  in  the  labeled  common  named  "/Wavetek/": 

410  I 

415  I  "Sn$"  -  records  the  serial  number  of  the  Wavetek  meter 
420  I  being  measured.  It  can  be  input  before  the  measure- 

425  I  ment  from  an  item  on  the  initial  menu. 

430  I 

435  t . . . 

440  I 

445  I  CHANGING  INITIAL  VALUE  OF  VARIABLES 

450  I 

455  t  *  These  variables  are  ini  tally  defined  in  the  subprogram  "Set_up". 

460  I  To  change  them,  move  to  the  subprogram  by  executing,  "EDIT  S". 

465  I  Change  the  values  as  needed  and  "Re-store"  the  program  if  the 

470  1  changes  are  to  be  permanent. 

475  I 

480  I 

485  I  **  [This  variable  is  initally  defined  in  the  subprogram  "Hp_3457".| 
490  !  I  If  a  different  OVM  is  used,  along  with  the  name,  the  percent  | 
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495  I 

500  I 

505  I 

510 
515 
520 
525 
530 
535 
540 
545 
550 
555 
560 
565 
570 
575 
580 
585 
590 
595 
600 
605 
610 
615 
620 
625 
630 
635 
640 
645 
650 
655 
660 
665 
670 


of  reading  and  the  percent  of  full  scale  specifications  must 
also  be  changed  in  that  subprogram.  Execute  "EDIT  hp3457"  to 
Jmove  to  the  subprogram. 

I*^,^*A^*******  PROGRAM  ***********,^*** 

I 

OPTION  BASE  1 

COM  /Ovm/  P0,R0,A1,A2, A3, A4,A5, 81, 82, 83,84,85, R1,R2,R3,R4,R5 

COM  /Ovm/  0vm_name$[40]  I  OVM  ID 

COM  /Errs/  0p7vic,Vli ,  Vlf,Vlxi  ,Vlxf  ,Vlx,V2x,Tlfac,T2fac,  Cfu,Mmu 


COM  /Mount/  MountJ[40],Cf 
COM  /Wavetek/  Sn$[7] 

REAL  P(100,l) 

CONTROL  2,l;0 
KEY  LABELS  OFF 
I 

CALL  Set_up 
CALL  Hp_3457 
CALL  Init 
Nt=6 
LOOP 

CALL  Menul(Nt,Quit) 

IF  Quit  THEN  Quit 
CALL  Hdr 
REDIM  P(Nt,l) 

FOR  N*1  TO  Nt 
DISP  N 

CALL  Meas(N,Pl) 
P(N,1)=P1 
WAIT  1 
NEXT  N 

CALL  Stats(P(*)) 

OUTPUT  722; "TRIG  AUTO" 


I  Mount  ID 
IFor  the  serial  number 
I  For  the  power  measurements 
I Turn  PRT  ALL  off 
I  Turn  off  key  labels 

IFor  mount  &  measurement  parameters 
I  Get  DVM  parameters 
(Hardware  initialization 
(Default  No.  of  meas 
(To  repeat  measurement  sets 

(Terminate 
(Screen  header 
I  Redimension 
(Measurement  loop 

(Do  the  measurement 

(Fill  array  for  statistics 

(Wait  before  measuring  again 

(Calculate  the  statistics  of  the  run 
(Let  OVM  continue  reading 


PRINT  TA8XY(30,1),CHR$(128);CHR$(136);-  MEASUREMENT  COMPLETE 
CALL  Menu2  (Post  measurement  soft  keys 

END  LOOP 

675  Quit:  (Terminate  proqram 

680  CLEAR  SCREEN 
685  END 

690  ( 

695  I*  *******,%**  SU0  PROGRAMS  ****** 

700  ( 

705  M: 

710 
715 
720 
725 
730 
735 
740 
745 
750 
755 
760 
765 
770 
775 
780 
785 
790 
795 
800 
805 
810 
815 
820 
825 
830 
835 
840 
845 
850 
855 
660 
865 
870 
875 
880 
885 


*  A  *  A  *  *  * 

SUB  Heas(N,Pl) 

OPTION  BASE  1 

Sys_prty-VAL(SYSTEMJ(“SYSTEM  PRIORITY"))  IDetermine  system  priotity 
Lcl_prty=Sys_prty-tl  [Set  local  priority  1  higher  for  ON  KEY 

ON  KEY  0  LABEL  "  ",Lcl_prty  GOTO  8ail_out 

COM  /Ovm/  P0,R0,A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,R1,R2,R3,R4,R5 
COM  /Dvm/  0vm_name$[40]  (DVM  ID 

COM  /Errs/  Dp, Vlc,Vli ,Vlf,Vlxi , Vlxf.Vlx, V2x,Tlfac,T2fac,Cfu,Hmu 
COM  /Mount/  MountS[40],Cf  (Mount  ID 

CALL  Dvm(Vli,Tli)  (VI  before  rf  turn  on 

OUTPUT  722; "CHAN  0"  (Connect  for  delta  V 

WAIT  ,2  I 

CALL  DvmCVlxi,Tlxi)  (Initial  delta  VI  (Vlxi)  with  rf  off 

Vt=Vlxi+Vli-SQR(Vli^2-9.E-4*R0) (Calculate  threshold  for  Rf  sub 


CALL  Rf(l,Vt) 

WAIT  1 

CALL  0vm(V2x,T2x) 

CALL  Rf(0,Vt) 

WAIT  1 

CALL  0vm(Vlxf,Tlxf) 

OUTPUT  722; "CHAN  1" 

WAIT  .2 

CALL  0vm(Vlf,Tlf) 

I 

Tlfac=(T2x-Tli)/(Tlf-Tli) 
Vlc=Vli +Tlfac* (Vlf- Vli ) 

( 

T2f ac= (T2x-Tlxi ) / (Tlxf >Tlxi ) 

Vlx=Vlxi +T2fac*(Vlxf-Vlxi ) 

0vl=(Vlf-Vli)*l.E+6 

0vl^dt=0vl/(Tlf-Tli) 

Dv2=V2x-Vlx 

I 

CALL  Errors 
( 


(Calls  for  rf  ON  and  determines  when 
IFor  source  to  settle 
(Read  delta  V2  (V2x)  with  rf  on 
(Calls  for  rf  OFF  and  determines  when 
(Wait  again 

(Final  delta  VI  (Vlxi)  with  rf  off 
(Reconnect  for  VI 

(Final  VI  with  rf  off 

(First  timing  factor 
I VI  corrections 

I  Second  timing  factor 
(Delta  V  corrections 
(Change  in  VI 

(Drift  rate  of  VI  in  mV/sec 
(Change  in  V2  -  (delta  V) 

(Calculate  errors 
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890  Pl»1000/R0*(2mc-(0v2))*(0v2)  IPower  1n  irW 

895  Pl“Pl/Cf  ICal  factor  correction 

900  i 

905  GOSUB  Printout  IPrint  results 

910  SUBEXIT  (Normal  exit 

915  P:  (Printout 

920  Printout:  ( 

925  IHAGE  30,5X,Z.6D,5X,S22.3Q,8X,Z,60,2X,3D.30,5X,S20.D,BX;20.3D 

930  '  PRINT  USING  g25;N,Pl,100*(Pl>P0)/P0,Vlc,Dv2n.E+3,Dvl^dt,Vlx*l.E+3 
935  RETURN  ( 

940  ( 

945  Bail  out:  (As  it  says 

950  OUTPUT  722; "TRIG  AUTO"  (DVM  continue  reading 

955  PRINT 

960  PRINT  TA0XY(3O,1),CHR$(128);CHR$(136);"  MEASUREMENT  STOPPED 
965  PAUSE 

970  ( 

975  Exit:  (Finished 

980  SUBENO  (  SUB  Meas 

985  i*A************i^********H[****yc**** 

990  ( 

995  Rf:SU0  Rf(On,Vt)  (Turn  rf  ON/OFF 

1000  IF  On  THEN 

OISP  CHR$(129);''  TURN  RF  ON  (PRESS  6502A  KEY  '7')  ";CHR$(128)  (Tell  operator 
BEEP  1000,. 01  (Get  his  attention 

LOOP  (Wait  for  rf  to  be  turned  on/off 

CALL  Dvm(V,T)  (Read  DVM 

WAIT  1  ( 

EXIT  IF  V>Vt  (If  rf  is  turned  ON 

END  LOOP 
ELSE 

OISP  TURN  RF  OFF  (PRESS  8502A  'CLEAR')  *;CHR$(128)  (Tell  operator 

BEEP  1000, .01  (Get  his  attention 

WAIT  .2 
BEEP  1000,. 01 

LOOP  (Wait  for  rf  to  be  turned  on/off 

CALL  Ovm(V,T)  (Read  DVM 

WAIT  1  ( 

EXIT  IF  V<Vt  (If  rf  is  turned  OFF 

END  LOOP 
END  IF 
OISP  •- 
SUBEND 


1005 

1010 

1015 

1020 

1025 

1030 

1035 

1040 

1045 

1050 

1055 

1060 

1065 

1070 

1075 

1080 

1085 

1090 

1095 

1100 

1105 

1110 


( 


1115  0vm:SU8  Dvm(V,T) 

1120  SEND  7;UNL  LISTEN  22 

1125  TRIGGER  7 

1130  ENTER  722;V 

1135  T=TIMEOATE 

1140  SUBENO 

1145  IAA*****A*A*AA*AA*A***A**A*A****A* 

1150  ( 


(DVM  reading 
(Get  dvm's  attention 
(trig  to  read 
(Read  DVM 
(Get  the  time 


1155  Init:SUB  Init 


(Initialize  instriments 


1160 

1165 

1170 

1175 

1180 

1185 

1190 

1195 

1200 

1205 

1210 

1215 


( 


(Clear  3457 

(Connect  input  to  scanner 
(10  PLC 
(Auto  Range 

(Set  up  for  single  readings 

(Connect  for  VI,  floating  DVM 
(Make  sure  everything  is  settled 


CLEAR  722 

OUTPUT  722; "TERM  SCANNER" 

OUTPUT  722;"NPLC  10" 

OUTPUT  722; "DCV  -1" 

OUTPUT  722; "TRIG  AUTO" 

( 

OUTPUT  722; "CHAN  1" 

WAIT  1 
SUBENO 

IAA*A  A*AAAA*A*AA*A*AAAAAAAA**AAA*A 
( 


1220  H:SUB  Hdr 
1225  ( 

1230  OPTION  BASE  1 

1235  CLEAR  SCREEN 

1240  ( 

1245  COM  /Dvm/  PO,RO,A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,R1,R2,R3,R4,R5 

1250  COM  /Dvm/  0vm_name$[40]  (DVM  ID 

1255  COM  /Mount/  Mount$[40],Cf  (Mount  10 

1260  COM  /Wavetek/  Sn$[7]  (For  the  serial  number 

1265  ( 

1270  PRINT  TABXY(1,1),CHR$(137)&"P  W  R  _  M  T  R  1"&CHR$(136) 

1275  PRINT  TABXY(30,1),CHR$(136);CHR$(129);"  MEASUREMENT 

1280  ( 


IN  P  R  0  G  R  E  S 


n 


S  ";CHR$(12B) 
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1285  PRINT  TABXY(1,3),CHR${14Q);'’M0UNT:  ";Mount$;CHR$(136) 

1290  PRINT  TABXY(59,3),CHR$(140);TIME$(TIMEDATE);"  “;0ATE$(TIME0ATE);CHR$(136) 

1295  PRINT  TABXY(1,4),CHR$(140);"POWER  METER:  WAVETEK  MODEL  8502A,  S/N  ";Sn$;CHR$(136) 

1300  I 

1305  DIM  A$[80],B$[80],C$[80],0$[80],Scr$[80]  IString  variables  to  build  IMAGE  statement 
1310  Ima:DATA  “#/"  N0."%4X/"'  POWER  "\4X,""PWR-''"" 

1315  Imc:DATA  •#/"rtW"",6X, VI  •'",3X, •“Del ta  V"",3X, ""VI  Drift "\3X, ""Ref.  Offset""" 

1320  RESTORE  Ima 

1325  READ  Scr$  I  Read  as  IMAGE  statement 

1330  OUTPUT  A$  USING  Scr$ 

1335  OUTPUT  8$  USING  "#,2D.0“;P0 

1340  RESTORE  Imc 

1345  READ  Scr$ 

1350  OUTPUT  C$  USING  Scr$ 

1355  0$=A$&B$&C$ 

1360  PRINT  0$ 

1365  I 

1370  IMAGE  "a  Q",4X,"a  (mW)  Q",4X,"a  W  g“,7X/a  (VOLT)  g",3X/a  (mV)  g",3X,"a  (uV/s)  Q",3X/a  (mV) 

1375  PRINT  USING  1370 

1380  I 

1385  SUBEND  I  Hdr 

1390  I**************** 

1395  E:SUB  Errors 
1400  OPTION  BASE  1 

1405  COM  /Dvm/  P0,R0,A1,A2,A3,A4,A5,81,B2,B3,B4,B5,R1,R2,R3,R4,R5 

1410  COM  /Dvm/  Dvm  name$[40]  I  DVM  ID 

1415  COM  /Errs/  Dp,Vlc,Vli ,Vlf,Vlxi ,Vlxf,Vlx,V2xJlfac,T2fac,Cfu,Mmu 

1420  I 

1425  CALL  Select_v(Vli,Aali,Bbli,Ssli)  lAa_  -  fraction  of  reading  error 

1430  CALL  Select^v(Vlf,Aalf,Bblf,Sslf)  I 

1435  CALL  Select^v(Vlxi,A3lxi,Bblxi,Sslxi)  I 

1440  CALL  Select_v(Vlxf,Aalxf,Bblxf,Sslxf)  IBb_  -  fraction  of  PS  error 

1445  CALL  Select_v(V2x,Aa2x,Bb2x,Ss2x)  ISs  full  scale  reading 

1450  I 

1455  60SU8  With_rvg  t 

1460  I  GOSUB  Servo^errors  I Very  small  error  >  not  used  for  this  application 

1465  I  sub  routine  removed 

1470  Total_error:I  Without  RVG. 

1475  Total  ==Without+Eerr+Ierr 

1480  I 

1485  SUBEXIT 

1490  I 

1495  With^rvg:  I  Eq‘s  derived  900111/FRC 

1500  Ovli=Aali*Vli+Bbli*Ssli  I  Delta-V  due  to  initial  VI  measmnt 

1505  Dvlf=Aalf*Vlf+Bblf*Sslf  {  Oelta-V  due  to  final  VI  measmnt 

1510  I 

1515  Dvlxi=ABS(Aalx1*Vlxi )+Bblxi*Sslxi  I  Delta  due  to  initial  Vlx  measmnt 

1520  Ovlxf-ABS(Aalxf*Vlxf)+Bblxf*Sslxf  i  Oelta-V  due  to  final  Vlx  measmnt 

1525  I 

1530  0v2x=ABS(Aa2x*V2x)+Bb2x*Ss2x  I  Oelta-V  due  to  V2x  measmnt 

1535  I 

1540  Dvlc=(l+Tlfac)^Dvli+Tlfac’^Ovlf  lError  in  corrected  VI 

1545  Dvlx=(l+T2fac)*Dvlxi +T2fac*0vlxf  lError  in  delta  V  correction 

1550  I 

1555  0pvl«ABS((V2x-Vlx)>^Dvlc)  t  Delta-power  due  to  VI  measmnt  errors 

1560  Dpvlx=ABS((Vlc-V2x-Vlx)*Dvlx)  I  Delta-power  due  to  Vlx  "  " 

1565  0pv2x-ABS((Vlc-V2x-Vlx)*0v2x)  !  Delta-power  due  to  V2x  " 

1570  0p=2*(Dpvl+Dpvlx+0pv2x)/R0  I  Sum  (2  &  RO  left  out  above) 

1575  0p=0p*l.E+3  I  Dp  in  mW 

1580  RETURN 

1585  I 

1590  SUBENO 

1595  l********************************* 

1600  I 

1605  Hp3457:SUB  Hp_3457 
1610  OPTION  BASE  1 

1615  COM  /Ovm/  PO,RO,A1,A2,A3,A4,A5,B1,92,B3,B4,B5,R1,R2,R3,R4,R5 
1620  COM  /Dvm/  Dvm^name$[40]  I  DVM  ID 

1625  Dvm_name$«"HP  3457" 

1630  IFOR  DVM:  VALUE  QUANTITY  (HP  3457,  1  yr,  167  ms,  6-1/2  dig) 

1635  Nc:  DATA  3.03E6  I  number  of  counts,  full  scale 

1640  Al:  DATA  4.5E-5  I  fraction-of-rdg  error,  range  Rl,  1  yr 

1645  A2:  DATA  3.5E-5  I  fraction-of-rdg  error,  range  R2,  etc. 

1650  A3:  DATA  2.5E-5  I  fraction-of-rdg  error,  range  R3 

1655  A4:  DATA  4.0E-5  I  fraction-of-rdg  error,  range  R4 

1660  A5:  DATA  5.5E-5  I  fraction-of-rdg  error,  range  R5 

1665  Bl:  DATA  305.  I  fraction-of-FS  error,  counts,  range  Rl,  10  PLC 

1670  82:  DATA  40.  1  fraction- of-FS  error,  counts,  range  R2 

1675  B3:  DATA  7.  I  fraction-of-FS  error,  counts,  range  R3 
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1680  B4: 

DATA  20.  I 

fraction-of-FS  error,  counts,  range  R4 

1685  B5: 

OATA  7.  1 

fraction-of~FS  error,  counts,  range  R5 

1690  Rl: 

DATA  0.0303  I 

lowest  range  (including  overrange),  volts 

1695  R2: 

DATA  0.303  1 

next  range  up 

1700  R3: 

OATA  3.03  1 

next  range  up 

1705  R4: 

DATA  30.3  I 

next  range  up 

1710  R5: 

DATA  300.  I 

next  range  up 

1715 

READ  Nc,Al,A2,A3,A4,A5,Bl,B2, 

B3,B4,B5,R1,R2,R3,R4,R5 

1720 

1 

1725  Convert  fs  errs:l  Normalize  FS  count  errors  to  fractional  errors 

1730 

B1*B1/Nc 

1735 

62=B2/Nc 

1740 

B3-B3/NC 

1745 

B4=B4/Nc 

1750 

B5»B5/Nc 

1755  SUBEND 

1760  I 

1765  SelectrSUB  Select  v(V,Aa,Bb,Ss) 

1770 

OPTION  BASE  1 

1775 

COH  /Ovm/  P0,R0,A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,R1,R2,R3,R4,R5 

1780 

COM  /Ovm/  Ovm  name$[40] 

I OVM  10 

1785 

SELECT  ABS(V) 

I  V  may  be  of  either  polarity 

1790 

CASE  <=R1 

I  Start  at  lowest  range 

1795 

Aa»Al 

1  Fraction  of  rdg  error  for  V  on  range  Rl 

1800 

Bb«81 

I  Fraction  of  FS  error  for  V  on  range  Rl 

1605 

Ss-Rl 

i  Full  scale  reading  for  V,  range  Rl 

1610 

Range-1 

1  Range.no  nimter  for  plot 

1815 

CASE  <«R2 

I  Uprange  if  necessary 

1620 

Aa-A2 

1825 

6b>B2 

1630 

Ss*R2 

I  Etc.  for  range  R2 

1835 

Range«2 

1640 

CASE  <«R3 

t  And  again 

1645 

Aa«A3 

1650 

6b«63 

1655 

Ss*R3 

1860 

Range-3 

1665 

CASE  <«R4 

1870 

Aa«A4 

1875 

Bb=B4 

1880 

Ss»R4 

1865 

Range-4 

1890 

CASE  <*R5 

1895 

Aa*A5 

1900 

Bb-B5 

1905 

Ss«R5 

1910 

Range* 5 

1915 

CASE  ELSE 

1920 

BEEP 

1925 

PRINT  "Voltage  is  in  excess  of  300  volts.  Don’t  be  ridiculous," 

1930 

PAUSE 

1935 

END  SELECT 

1940  SUBEND 

1945  ( 

1950  S:SUB  Set_up 

Unitialize  mount  parameters 

1955 

OPTION  BASE  1 

1960 

COM  /Ovm/  P0,R0,A1,A2,A3,A4,A5,B1,B2,B3,B4,B5,R1,R2,R3,R4,R5 

1965 

COM  /Ovm/  Ovm  name$[40] 

lOVM  10 

1970 

COM  /Errs/  0p,Vlc,Vli,Vlf,Vlxi,Vlxf,Vlx,V2x,Tlfac,T2fac,Cfu,Mnni 

1975 

COM  /Mount/  Mounts [40], Cf 

1980 

Mount$="HP  847BB,  S/N  2106A20054* 

1985 

Cf*.9897 

1 Mount  calibration  factor 

1990 

Cfu=.5973 

ICalibration  factor  uncertainty  in  H 

1995 

Mmu*.21 

1 Mismatch  factor  uncertainty  in  % 

2000 

RO-200 

I Mount  operating  resistance  in  ohms 

2005 

PO-1.0 

1  Comparison  power  in  mw.  Note  that 

2010 

Ithe  following  line  limits  this  setting 

2015 

Ito  a  0.1  mw  resolution. 

2020 

P0=0R0UND(P0,2) 

ILimit  PO  to  1  place  beyond  decimal 

2025  SUBEND 

2030  1 

2035  Stats:SUB  Stats(REAL  P(*)) 

2040 

OPTION  BASE  1 

2045 

COM  /Ovm/  PO,RO,A1,A2,A3,A4,A5,B1,B2,03,B4,B5,R1,R2,R3,R4,R5 

2050 

COM  /Ovm/  Ovm  nameS[40] 

IDVM  ID 

2055 

COM  /Errs/  Dp,Vlc,Vli,Vlf,Vlxi,Vlxf,Vlx,V2x,Tlfac,T2fac,Cfu,Mmu 

2060 

ALLOCATE  Oum(SIZE(P,l),l) 

I  Use  Dum(*)  to  preserve  P(*) 

2065 

GOSUB  Sd 

1  Standard  dev.  of  original  set 

2070 

1 
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2075  Svs_err=Cfu+Mmu+100*Op/Mean  ISysteinatic  error  %  (See  header  notes) 

2080  Sclm=Sd/SQR(SIZE(P,l))  (Standard  Deviation  of  the  mean 

2085  Tot_unc==Sys_err+300*(Sdm/Mean)  (Total  uncertainty  H  with  3*SD  mean 
2090  ( 

2095  GOSU0  Prt  (Print  results 

2100  DEALLOCATE  Dum(*) 

2105  SUBEXIT 

2110  ( 

2115  Prt:PRINT  " . -  - . _  -  _  - - « 

2120  PRINT  "RESULTS:" 

2125  ( 

2130  DIM  A$[128],B$[12B],C$[128],0$[128],Scr$[128]  (String  variables  to  build  IMAGE  statement 
2135  Imd:DATA  "#,8X/'"AVG  PWR  "",4X/’"AVG-""" 

2140  ImerOATA  "#/W",6X/"  MAX  DEV  "",3X/"STD  DEV"“,3X,  ""SYS  UNC"  “ ,  3X/ “TOT  UNC""" 

2145  RESTORE  Imd 

2150  READ  Scr$  (Read  as  IMAGE  statement 

2155  OUTPUT  A$  USING  Scr$ 

2160  OUTPUT  B$  USING  "#,2D.D";P0 

2165  RESTORE  Ime 

2170  READ  Scr$ 

2175  OUTPUT  C$  USING  Scr$ 

2180  D$=A$&B$&C$ 

2185  PRINT  D$ 

2190  ( 

2195  IMAGE  8X/'a  (mw)  Q",4X/a  W  g",7X/a  {H)  5",3X/a  {h)  g",3X/‘a  {H)  g",3X/'a  (%)  g” 

2200  PRINT  USING  2195 

2205  IMAGE  8X,Z.60,5X,S2Z.30,8X,SZ.30,K,SZ,30,4X,Z.30,5X,Z.3D,5X,Z.3D 

2210  PRINT  USING  2205; Mean,  lOOMMean-PO) /PO,  100*Maxpdv/Mean,  “ , " ,  100*Maxndv/Mean,  100*Sd/Mean, Sys_err, Tot_unc 
2215  RETURN 

2220  I 

2225  Sd:( 

2230  MAT  Dum=  P 

2235  Sum=SUM(Dum)  I  Sum  of  the  elements  in  P(*) 

2240  Mean*Sum/SIZE(P,l)  I  Mean  of  P(*) 

2245  MAT  Dum=  P-(Mean)  I  Dum(*)  contains  deviations  from  mean 

2250  Maxpdv=MAX(Dum(*))  I  Largest  positive  deviation 

2255  Maxndv=MIN(Oum(*))  (  Largest  negative  deviation 

2260  Maxdv=MAX(ABS(Maxpdv),ABS(Maxndv))  (  Largest  largest  deviation 

2265  MAT  Dum=  (lum  .  Oum  (  Dum  holds  squares  of  deviations 

2270  IF  SIZE(P,1)>1.1  THEN  (  Check  for  single  measurement 

2275  Var^SUM(Dum)/(SIZE(P,l)-l)  I  Variance 

2200  ELSE 

2285  Var=SUM(Dum) 

2290  END  IF 

2295  Sd=SQR(Var)  (  Standard  deviation 

2300  Max_al==3*Sd  (  Maximum  allowable  standard  deviation 

2305  RETURN 

2310  ( 

2315  SUBENO 
2320  I 

2325  Menu2:SUS  Menu2  (Post  measurement  soft  keys 

2330  OPTION  BASE  1 

2335  Sys_prty=VAL (SYSTEMS ("SYSTEM  PRIORITY"))  (Determine  system  priority 

2340  Lcl_prty=Sys_prty+l  (Set  local  priority  1  higher  for  ON  KEY 

2345  USER  1  KEYS  list  set  of  soft  keys 

2350  KEY  LABELS  ON  (Turn  on  soft  keys 

2355  FOR  N=0  TO  19  (Clear  keys 

2360  ON  KEY  N  LABEL  ""  GOTO  Top  (Default  destination 

2365  NEXT  N 

2370  ON  KEY  1  LABEL  "  MENU  ”,Lcl_prty  GOTO  Exit 

2375  ON  KEY  2  LABEL  "  PRINT  ",Lcl_prty  GOSUB  Print 

2380  ( 

2385  Top: LOOP  (Wait  for  input 

2390  END  LOOP 

2395  Print:  (Alpha  dump 

2400  KEY  LABELS  OFF  (Turn  off  soft  keys 

2405  DUMP  ALPHA  (As  it  says 

2410  KEY  LABELS  ON  (Turn  keys  back  on 

2415  RETURN 

2420  Exit:  ( 

2425  KEY  LABELS  OFF 

2430  SUBENO 
2435  ( 

2440  Menul:SUB  Menul(Nt,Qui t)  (PRE  measurement  set  up  &  soft  keys 

2445  OPTION  BASE  1 

2450  Sys_prty=VAL (SYSTEMS ("SYSTEM  PRIORITY"))  (Determine  system  priority 

2455  Lcl_prty^Sys_prty4l  (Set  local  priority  1  higher  for  ON  KEY 

2460  ( 

2465  COM  /Wavetek/  Sn$[7]  (For  the  serial  number 
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2470  M_flag*l  I  To  write  menu 

2475  USER  1  KEYS  list  set  of  soft  keys 

2480  KEY  LABELS  ON  I Turn  on  soft  keys 

2485  FOR  N«0  TO  19  I Cl  ear  keys 

2490  ON  KEY  N  LABEL  -  GOTO  Top  lOefault  destination 

2495  NEXT  N 

2500  ( 

2505  ON  KEY  1  LABEL  *  SELECT  (l)",Lcl_prty  GOSUB  Help 
2510  ON  KEY  2  LABEL  *  SELECT  (2)",LcLprty  GOSUB  Sn 

2515  ON  KEY  3  LABEL  ■  SELECT  (3)\Lcr_prty  GOSUB  Change 

2520  ON  KEY  4  LABEL  "  SELECT  (4)",Lci J3rty  GOTO  Exit 

2525  ON  KEY  5  LABEL  "  SELECT  (5)“,Lcl  prty  GOTO  Quit 

2530  ( 

2535  Top: LOOP  I  Wait  for  input 

2540  IF  H.flag-^1  THEN  GOSUB  Menu 

2545  END  LOOP 

2550  I 

2555  Menu: CLEAR  SCREEN 

2560  PRINT  TA8XY(5,2),CHR$(129);-  P  W  R  ^  M  T  R  1  -;CHR$(128) 

2565  CLIP  10,110,24,88  ITo  draw  a  box 

2570  FRAME 

2575  PRINT  TABXY(24,5),* - MEASUREMENT  MENU - * 

2580  PRINT  TABXY(20,8),CHR$(129);''(1)";CHR$(12B);''  WAVETEK  OPERATING  INSTRUCTIONS" 

2585  PRINT  TABXY(20,10),CHR$(129);" (2)*;CHR$(12B);"  INPUT  WAVETEK  SERIAL  NUMBER" 

2590  IF  Sn$«-"  THEN 

2595  PRINT  TABXY(25,ll),-(No  S/N  In  memory)" 

2600  ELSE 

2605  PRINT  TAflXY(25,ll),-(S/N  ";Sn$;-  in  memory)" 

2610  END  IF 

2615  PRINT  TABXY(20,13),CHR$(129);"(3)",*CHR$(128);"  CHANGE  #  OF  MEASUREMENT  POINTS" 

2620  PRINT  TABXY(25,14)," (Present  setting  *";Nt;")  " 

2625  PRINT  TABXY(20,16),CHR$(129);" (4)";CHR$(12B);"  BEGIN  MEASUREMENT" 

2630  PRINT  TABXY(20,1B),CHR$(129);"(5)";CHR$(128);-  EXIT  PROGRAM" 

2635  M  fUg*0 

2640  RETURN 

2645  Sn:  I  Input  the  WAVETEK  serial  number 

2650  KEY  LABELS  OFF  ITurn  off  soft  keys 

2655  LINPUT  "WAVETEK  SERIAL  NUMBER  ?",Sn$[l,7] 

2660  Sn$-TRIM$(Sn$) 

2665  PRINT  TAflXY(25,ll),-(S/N  ";Sn$;"  in  memory)" 

2670  KEY  LABELS  ON  ITurn  keys  back  on 

2675  RETURN 

2680  Change:  IChange  #  of  meas  points 

2685  KEY  LABELS  OFF  ITurn  off  soft  keys 

2690  INPUT  “NUMBER  OF  MEASUREMENT  POINTS  ?",Nt 

2695  Nt-MIN(Nt,100) 

2700  Nt=NAX(Nt,l) 

2705  PRINT  TABXY(25, 14), "(Present  setting  =";Nt;")  " 

2710  KEY  LABELS  ON  ITurn  keys  back  on 

2715  RETURN 

2720  Help:  IWith  operation  of  Wavetek 

2725  CALL  Help 

2730  M  flag=l 

2735  RETURN 

2740  Quit:  [Terminate  program 

2745  Quit»l 

2750  Exit:  I 

2755  KEY  LABELS  OFF 

2760  SUBEND 
2765  I 

2770  Help:SU8  Help 
2775  CLEAR  SCREEN 

2780  OPTION  BASE  1 

2785  Sys^prty=VAL(SYSTEM$("SYSTEM  PRIORITY"))  lOetermine  system  priority 

2790  Lcl.prty=Sys^prty+l  I  Set  local  priority  1  higher  for  ON  KEY 

2795  USER  1  KEYS  list  set  of  soft  keys 

2800  KEY  LABELS  ON  ITurn  on  soft  keys 

2805  FOR  N-O  TO  19  I  dear  keys 

2810  ON  KEY  N  LABEL  ""  GOTO  Top  I Default  destination 

2815  NEXT  N 

2820  ON  KEY  1  LABEL  " CONTINUE", Lcl.prty  GOTO  Exit 

2825  GOSUB  Text  1  Print  info 

2830  I 

2835  Top:L00P  IWait  for  input 

2840  END  LOOP 

2845  I 

2850  TextrPRINT  TABXY(22, 2), "CONTROLLING  8502A  CALIBRATOR  OUTPUT" 

2855  PRINT  TABXY(12,4),"Press  the  following  8502A  front  panel  control  keys  in  the" 
2860  PRINT  TABXY(12, 5), "sequence  indicated:- 
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2865  PRINT  TA8XY(14,7)/(1)- 'CW'," 

2870  PRINT  TA8XY(25,7)/(2)-'Menu'/ 

2875  PRINT  TA8XY(38,7)/ (3)> ‘FO' , " 

2880  PRINT  TABXY(49,7)/(4)-'Fl\'' 

2885  PRINT  TABXY(12,9h "Then,  pressing  the  8502A  key  *7*  will  turn  the  calibrator" 

2890  PRINT  TABXY(12, 10), "output  ON,  and  pressing  the  8502A  key  'CLEAR'  will  turn  the" 

2895  PRINT  TABXY(12, 11), "calibrator  output  OFF." 

2900  PRINT  TABXY(12,13),"For  more  detail  see  'Calibrator  Output  Level  Test'  on  page  6-2" 
2905  PRINT  TA8XY(12,14),*of  the  8502A  manual." 

2910  PRINT  TABXY(12,17), "CAUTION:  Do  not  press  any  UNITS  key  when  the  mount  is" 

2915  PRINT  TABXY(12, 18), "connected  to  the  calibrator.  This  will  cause  the" 

2920  PRINT  TA0XY(12, 19), "calibrator  to  output  100  nW  which  might  damage  the  mount." 

2925  RETURN 

2930  ( 

2935  Exit:  I 

2940  SUBEND 
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